##################### 0925 饼图 pie()

par(mfrow=c(4,1)) ## 几行，几列
                  ## 扩展 par(mar=c(5,4,4,2)) #下左上右边界
x <- c(10,12,4,16,8)
lab <- c("US","UA","CN","AU","RU")
pie(x,lab,main = "first pie")
pct <- round(x/sum(x)*100)
labl <- paste(lab, ":",pct,"%",sep=" ")
### 彩色饼图
pie(x,labl,col = rainbow(length(labl)), main="pie chart with percentage")
### 3D饼图
install.packages("plotrix")
library(plotrix)
??plotrix
pie3D(x,explode = 0.1, # 饼的大小、间隙
      main="3D主题")
### 扇形图
fan.plot(x,labels = lab,main = "扇形助比较")

###################### 0927 直方图 hist()
x <- mtcars$mpg
hist(x)
hist(x,
     breaks = 12, # x轴上展示图形数量
     col="green",xlab = "x轴的文字",ylab = "y轴的文字",main = "主标题"
     )
hist(x,
     breaks = 12, # x轴上展示图形数量
     freq = FALSE, # y轴此时展示的是概率密度
     col="black",xlab = "x轴的文字",ylab = "y轴的文字",main = "主标题"
)
########## 增加直方图上面的曲线 lines()
lines(density(x),col="red",lwd=2)
??density ##  密度(固体、液体或气体单位体积的质量)；浓度；密集
###################### 0927 核密度图 【分布频率】
## 仍然使用plot()，不过先用 density()处理数据
x <- density(mtcars$mpg)  ## 每加仑汽油历程分布状态
x
plot(x)
####### 新需求：不同车，每加仑汽油里程
